Solaris Press Kit/Solaris Press Kit.iso/mac/Media/Solaris.dxr/Internal_63_FLASH getURLs.ls

Text File | 2002-10-23 | 546 b | 27 lines

on gHand
  setCursorHand()
end

on gBand
  setCursorStop()
end

on gWeb
  alertObj = new(xtra("MUI"))
  alertInitList = [#Buttons: #YesNo, #title: "Confirmation", #Message: " Connect to the Internet? ", #movable: 0, #default: 6, #Icon: #question]
  if objectp(alertObj) then
    result = alert(alertObj, alertInitList)
    case result of
      1:
        baOpenURL("http://www.solaristhemovie.com/", "normal")
      2:
        nothing()
      otherwise:
        nothing()
    end case
  else
    alert("No MUI Xtra")
  end if
  updateStage()
end